home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / windows.arc / WINDOD.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-05-18  |  1.1 KB  |  60 lines
  1.  
  2. { Demonstration program for removable window package, WINDO.PAS }
  3.  
  4. { For further documentation see PC Tech Journal, February 1985. }
  5.  
  6. {$I windo.pas}
  7. var i: integer;
  8.  
  9. begin
  10.   initwin;
  11.  
  12.   writeln('Now and every time the action stops,');
  13.   writeln('press ENTER to continue.');
  14.   readln;
  15.   clrscr;
  16.   for i:=1 to 25 do writeln('    This is the original screen.');
  17.  
  18.   mkwin(3,3,50,18);
  19.   for i:=1 to 15 do writeln('This is the first window...');
  20.   readln;
  21.  
  22.   mkwin(10,5,70,20);
  23.   for i:=1 to 15 do writeln('Second window...');
  24.   readln;
  25.  
  26.   mkwin(15,15,45,23);
  27.   writeln('Third window...');
  28.   readln;
  29.  
  30.   mkwin(55,10,79,25);
  31.   writeln('Fourth window...');
  32.   readln;
  33.  
  34.   rmwin;   { Remove fourth window }
  35.   readln;
  36.  
  37.   rmwin;   { Remove third window }
  38.   writeln;
  39.   writeln('We are back in the second window...');
  40.   readln;
  41.  
  42.   rmwin;   { Remove second window }
  43.   writeln;
  44.   writeln('This is the first window again!');
  45.   readln;
  46.  
  47.   rmwin;   { Remove first window }
  48.   readln
  49. end.
  50.  
  51.  
  52. Key <ENTER> to continue: s is the first window again!');
  53.   readln;
  54.  
  55.   rmwin;   { Remove first window }
  56.   readln
  57. end.
  58.  
  59.  
  60. Key